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1OC1OPOST - 1/0 COMPLETION POSTING 16-SEP-1984 00:16:5 AX/VMS Macro V04-00 Pa A 
vO6-001 $73 p=] Be 99: 18: i Uys. SRCIT C1OPOST. MAR; 2 oc (1) 
-TITLE J[OCIOPOST = 1/0 COMPLETION POSTING 
sioent !Y64°008' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


RIGHTS RESERVED 


FTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ag 

emcee WITH THE TERMS OF SUCH LICENSE AND WITH THE 
me THE ABOVE yg hth NOTICE. THIS SOFTWARE OR ANY OTHER 
E 


NOW 


* & 
& * 
® e 
7 % 
® 4 
t ft 
w ® 
oa & 
* NEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
® * 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT * 
R * 
* % 
7 
® 
v Ye 
® * 
°® ry 


AN BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; FACILITY: EXECUTIVE, 1/0 SYSTEM 

; ABSTRACT 

: {9c 1oPost IMPLEMENTS THE DEVICE INDEPENDENT cone ace PROCESSING FOR 

; I IT IS INVOKED BY QUEUEING THE PACKET ON THE 1/9 POST QUEUE 
: AND TRIGGERING THE IPL$_IOPOST SOFTWARE INTERRUPT. SOME OF THE IOPOST 

: OPERATIONS SUCH AS SETTING EVENT FLAGS, UNLOCKING BUFFER PAGES, 

; RELEASING BUFFERS AND PAGING I/O COMPLETION ARE eet MED IN THE IOPOST 
; INTERRUPT SERVICE ROUTINE, WHILE OTHER OPERATIONS THAT REQUIRE ACCESS 

; TO PROCESS ADDRESS SPACE ARE PERFORMED BY SENDING He SPECIAL KERNEL AST 

; ENVIRONMENT: MODE = KERNEL, RESIDENT 


-SBTTL HISTORY 3; DETAILED 
AUTHOR: R. HUSTVEDT, CREATION DATE: 26-AUG-76 
MODIFIED BY: 
v04-001 $SA0031 mar 7-Sep-1984 
‘a bug aOR. by wt) 076 that destroys UCB address 
in RO if encryption key buffer is present. 


v03-025 wMC0025 Wayne Cardoze 31-May-1984 
Make sure direct I/0 completion unlocks at least one page. 


V03-024 ACG0422 ndrew C. Goldstein, 11-May-1984 19:35 
Fix use of RO in anc goe2i 
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Soooooo 
Sooooooo 
Gooooooo 


v0s-001 71986 97:18:10 ESrsYSacHtSetopostoman:2 "88° 9, 


v03-023 ac eose! Andrew C. Goldstein. 20-Apr-1984 14:19 
Fix segment byte count Limiting in erase Q10's 


V03-022 EMD0076 Ellen M. Dusseoyi ¢ 05-Apr-1984 
Modify IOPOST to check for a valid status bit for 
anecyt ee. If valid, deallocate nonpaged pool buffer 


OOoooceco <o 


whic ntains the encryption key. 

v03-021 SSA0021 Stan Amway 22-Mar-1984 
Decrement device queue length in UCB. 

v03-020 wMc0020 Wayne Cardoza 07-Mar-1984 
Move POSTEF to fork context to regain optimization which 
avoids reexecution of WAITFR. 

V03-019 wMC0019 Wayne Cardoza 28-Dec-1983 
Erase Q10s can be physical, logical, or virtual. 

v03-018 CDS0003 Christian D. Saether 14-Dec-1983 


Add IOCSBUFPOST entry point. This is used to perform 
the jiopost level part of i/o post ing to be executed as 

a subroutine call Cirestly and avoid the iopost software 
interrupt entirely. The F11BXQP is the initial user 

of this feature. 


V03-017 ROW49597C Ralph 0. Weber 21-SEP-1983 
Change PAGEIO_OR_SWAPIO patch (from ROW49597B and R0OW49597) to 
zero bytes transfered count in the IOSB when status is not 
successful and bytes transfered is greater than or equal to 
bytes requested. 


0 V03-016 ROW0218 Ralph 0. Weber 7-SEP-1983 
Change maximum byte count, UCBSL_MAXBCNT, tests to be 
unsigned. 
V03-015 ADE9005 Alan D. El er idee 30-May-1983 
Changed BSBW to JSB for cails to IOCSMAPVBLK and IOCSCVTLOGPHY. 
v03-014 $TJ3100 Steven T. jeftreys 03-May-1983 
Added local subroutine CHECK_ERASE 


-Do not update IRPS$L SVAPTE for ALL erase I/O's. This 
is an extention of $1J3085. 


v03-013 STJ3085 Steven T. Jeffreys, 13-Apr-1983 
-Do not update IRPS$L_SVAPTE for erase I/0 segmented 
requests if using the specail erase > 
“After segmentation complete, resore original SVAPTE 
address to IRPSL_SVAPTE. 


v03-012 ROW49597B Ralph 0. Weber 9-APR-1983 
Change PAGEIO_OR_SWAPIO from ROW49597 to zero bytes 
transfered count when status is not successful and bytes 
transfered is greater than or equal to bytes requested. 


vVO3-011 RLRMXBCNTc Robert L. Rappaport 28-Mar-1983 
Verify IRPSL_DIAGBUF is non-zero before assuming that it 
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B 13 
you-001 HISTORY: DETAILED. "SrSEp-19B6 7:19:10 LeveverctiocioposT Mar;2 28% (3, 
contains the original value of IRPS$L_SVAPTE in VIRTUAL_LOGIO. 
VO3-010 RLRMXBCNTb Robert L. Rappaport 22-Mar-1983 
Check for file oriented device before going to VIRTUAL_LOGIO. 
v03-009 tg y- Robert L. Rappaport 22-Mar-1983 


LRL_ the i count in the I/0 status before queueing 
an IRP back to the ACP in VIRTUAL_LOGiO. 


V03-008 RLRMXBCNT Robert L. Rappaport 11-Mar-1983 
Allow for segmentation of Logical 1/0 (and Virtual) 
based on the UCBSL_MAXBCNT field. 


V03-007 ROW49597 Ralph 0. Weber 26-JAN-1983 
Change both VIRTUAL and PAGEIO_OR_SWAPIO to guarantee an error 
status in IRPS$L_IOST1 whenever the bytes transfered is less 
than the areas requested. For V3.x, the error will be 
. After that, it will be SSS_INCSEGTRA. The check 


SOoOOCSCCOCSCOOOCSCOSOOOCOSOOOSCOSOSOOSCOSOOOOOOOSOSOSOSO <~=™ 
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SS$_CTRLER 
and error status are required to detect and gracefully 
revcover from the instance where a driver returns success 
status but bytes transfered is less than bytes spgunetes. 
The segmented transfer logic goes berserk when thic happens 
and eventually crashes the system. 
V03-006 STJ3049 Steven T. Jeffreys 06-Jan-1983 
Add support for the erase qio. 
v03-005 cdS0002 C Saether 12-0c t-1982 
Fix bug where R5 was not preserved when queuing 
packet to xaqp. 
v03-004 CDS0001 C Saether 18-Jul-1982 
Changes to accomodate XQP mechanism. 
v03-003 KDM0002 Kathleen D. Morse 28-Jun-1982 
8000 Added SDEVDEF and $SSDEF. 
000 v03-002 LJK45299 Lawrence J. Kenah 22-Jun-1982 
444 Fix deaccess-pending-on-spooled-dewvice logic. 
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OM POSTING SEP=1984 16:5 AX/VMS Macro \'04-00 Page 
POSTING ie 38 90:19:38 LEYS SRCITOCIOP 9ST MAR:2 . 3) 
3 fhe -SBTTL 1/0 COMPLETION POSTING 
9 : FUNCTIONAL DESCRIPTION: 
§ : IOCSIOPOST IS INITIATED BY TRIGGERING AN IPLS$_IOPOST SOFTWARE 
; INTERRUPT AFTER PLACING A COMPLETED I/0 PACKET IN THE IOPOST 
4; UEVE. IOCSIOPOST PERFORMS ALL APPROPRIATE COMPLETION ACTIVITY 
$3 REQUIRED FOR THE PACKET EITHER DIRECTLY OR BY QUEUE! KER 
$ 5 ASTS TO CONCLUDE PROCESSING IN THE CONTEXT OF THE PROCESS 
: WHEN REQUIRED. 
$ ; CALLING SEQUENCE: 
; : SOFTINT #IPL$_IOPOST 
: INPUT PARAMETERS: 
5: NONE 
? > IMPLICIT INPUTS: 
; ; IOCSGL_PSFL = IOPOSTING QUEUE 
1 : OUTPUT PARAMETERS: 
‘ : NONE 
4; 
5 | aaa 
§ -ENABL LSB 
8 IOCSIOPOST:: ; 1/0 POSTING INTERRUPT 
9 MOova RS =f ep} 3; SAVE 
0 MOVG -(SP) : NORMAL 
1 MOVQ R P -(SP) ; REGISTERS 
§ IOPOST: REMQUE a@W*IOCSGL_PSFL,R5 ; GET HEAD OF POST QUEUE 
BVC 10$ : QUEUE NOT YET EMPTY 
4 MOVQ (SP)+,RO ; RESTORE 
5 MOVQ (SP)+,R2 ; REGISTERS 
$ MOVa (SP)+,R4 3; AND EXIT 
REI ; IF QUEUE EMPTY 
; 5$ BRw VIRTUAL_LOGIO ; PROCESS VIRTUAL (OR LOGICAL) I/0 COMPLETIO 
1 7$ JSB (R1) ; CALL END ACTION ROUTINE 
§ BRB 10POST : 
4 8$ CLRW UCBSW_QLEN(RO) ; Device queue length went negative 
5 BRB 118 ; Reset queue length and continue 
$ 10$: MOVL {OPSL _PIOCAS) Rt ; GET PID/END ACTION ADDRESS 
8 BLSS ; BR IF END ACTI ADDRES 
; (SYSTEM SPACE ADDRESSES ARE NEGATIVE) 
0 MOVZWL R1,R ; GET PROCESS INDEX 
1 MOVL oy vis CHBaL pepveccaty. »R4 ; AND TRANSLATE TO PCB ADDRESS 
§ MOVL ucBTt ; RO => UCB. (Presets UCB for DIO path) 
DECW UCBBu “HEENCROS. ; Decrement device queue length 
& BLSS ; Length went negative, so go adjust 


] 
13 
10¢! ST = 1/0 COMPLETION POSTING 16-SEP-1984 16:5 AX/VMS Macro V04-00 Pa 
1Oe=b0% 1/0 COMPLETION POSTING iets 1 90: $37 5 YeyS. SRCJIOCIOPOST.MAR;2 ns 3) 
OC 2A AS oF E1 118: BBC #IRPSV_KEY,IRPSW_STS(RS), 128 3; set, buffer alloc for encryption 
i) PUSHL R s cave ¥ UCB address 

50 4 MOVL IRPSL_KEYDESC(RS), RO ; r0 contains aqerese Lloc buffer 

B3Bw EXESDEANONPAGED ; deal locate buf ner t destroyed) 
8ED POPL 0 ieee Tt UCB addre 
03 2A AS + 12$: BBC 44 _BUFIO, IRPSwW_ $T$(R5) : F CLEAR. SSIRECT 1/0 
OOCA 31 BRW ; BUF crip 1/0 
E AG 88 $W_DIOCNT(R4) UPDATE DIRECT 1/0 COUNT 
53 C AS i) MOVL $_- _SVAPTE(R5) ,R3 Ger ADDRESS OF FIRST PTE | 


ASSUME 
SV"SWAPIO LE 7 


RPSM OR ecacra ! IRPSM_SWAPIO>, IRP$W_STS(RS5) ; PAGIO OR SWAPIO? 


R 

d 

8 

13$: INCW 4 
I 

ASSUME I 

BITB H 


I 
UFIO 
cB 
RP 
RP$V_PAGIO LE 7 
RP 
<IRP 
AG 
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19$: > REFERENCE LABEL 
IF DF CAS_MEASURE_IOT 
BSBW © PMSSEND_RQ 


; 
3 
‘ 
: 
in BNEQ 10_OR_S 
0; 
7 ; DIRECT 1/0 COMPLETION 
7 : 
53 0$ 74 DIRIO: TSTL R3 : PIE ADDRESS VALID? 
46 «1 75 BEQL 18$ 3 IF EQL NO PAGES TO UNLOCK 
51 32 AS b0 26 OVL IRP$L_BCNT(R5).R1 3 GET REQUESTED TRANSFER BYTE COUNT 
52 0 a5 C 7 MOVZWL IRPSWBOFF (RS) .R2 : GET BYTE OFFSET IN PAGE 
08 £0 78 #IRP$V_PHYSIO,- 
1C 2A AS 79 IRP$W_STS(RS) , UNLOCK 3; BRANCH IF PHYSICAL I/0 
OE 1 80 BBC #DEVST_FOD,- : If NOT file oriented, go to UNLOCK 
17 38 AO 81 UCB$L_BEVCHAR(RO) ,UNLOCK; (RO preloaded in common DIO/BIO path) 
98 38 AS) CEO ; BLBC RPS$L-IOST1(R5) ,5$ ; BRAN nen IF ERROR IN VIRT. OR LOG. REQUEST 
46 AS 8 00 } TSTW IRPSL~OBCNT+2(R5) ; WAS ORIGINAL COUNT > 64K? 
07 «1 0086 4 BEQL ; EQL IMPLIES NO 
3A AS) «D100 85 CMPL IRP$L_10ST1#2(R5) ,- : EONGWORD COMPARE FOR > 64x OBCNT 
44 AS 0 36 IRPS$L-OBCNT(RS) ; IF COMPLETED ORIGINAL BYTE COUNT 
08D ; THEN NO SPECIAL VIRTUAL PROCESSING 
05 11 08D 88 on BRB 16$ : BRANCH AROUND TO COMMON 'BNEQ 
3A AS) BI bose 90 CMPW IRP$L_I0S$T1+#2(R5),- ; *NOTE 'CMPW' DUE TO CODE PATH FOR <64K BCN 
44 AS 009 91 IRPS$L_OBCNT(RS) ; IF COMPLETED ORIGINAL BYTE C 
38 168 ; THEN NO SPECIAL VIRTUAL PROCESSING 
8 12 94 NEQ 5 : OTHERWISE DO THE SEGMENTED COMPLET LON 
51 gir SB 9 95 UNLOCK: MOVAB 11(R1)CR2],R1 ; COMBINE OFFSET AND COUNT AND ROUND 
53 7 36 ASHL #-VA$S_BYTE,R1.R1 : CONVERT TO F PA 
1 9 BNEQ 165$ ; CHECK FOR AT LEAST ONE PAGE 
b6 98 INCL = R1 ; THE FDOT ROUTINE LOCKED ONE PAGE 
H E 99 165$: BBC #10$V_ERA ; BRANCH IF DEFINITELY NOT AN ERASE 
06 20 AS 0 IRPSW~FU necas, 17$ ; 
066¢ 30 1 BSBW 3 3=s-s CHECK ERAS : IS THIS AN ERASE FUNCTION? 
0B 50 8 ¢ BLBS kR0,198 ; BRANCH IF IT IS AN ERASE 
FF4D" 17$:  BSBw BlPe oe : UNLOCK PAGES 
E1 4 18$: BC #IRPS$V_EXTEND,- 
03 2A A 5 IRPSW_STS(RS),19$ ; BRANCH IF NO IRP E S$ ATTACHED 
0 30 $ BSBW  UNLOCR_MORE ; UNLOCK AREAS DESCRIBED IN IRPE'S 


tt 


FF42* 30 INSERT END OF 1/0 REQUEST MESSAGE 


F 13 
10C1 ST - 1/0 COMPLETION POSTING 16-SEP-1984 16:5 AX/VMS Macro V04-00 Page 
V toOt 1/0 COMPLET ION POSTING tet 90:19:78 SYS.SRCJIOCIOPOST.MAR;2 ° AS 
1 
cE 18 -ENDC 
18 AS 065) of 35 15 MCVAB W*DIRPOST,ACBSL_KAST(RS) ; SET SPECIAL KERNEL AST ADDRESS 
009A ¢ 18 BRw 408 s 
C 18 BRW_QNXTSEG: | 
O34A = =‘31 4 3 BRw QNXTSEG ; GO DO THE NEXT VIRTUAL SEGMENT | 
CA 72 
$A § 3 PAGE 1/0 OR SWAP 1/0 COMPLETION 
CA > 
CA 5 PAGIO_OR_SWAPIO: ; HERE WE ASSUME DISK I/0 FOR PAGING 
CA § ; AND SWAPPING AND WE FURTHER RELY 
OCA ; ON THE FACT THAT ALL DISK IVERS 
Rea 8 3 TRADITIONALLY RETURN ZERO IN THE 2ND 
8 CA ; LONGWORD THE 1/0 STATUS BLOCK F 
OCA 0 ; DATA TRANSFER OPERATIONS. THEREFORE 
OOCA 1 ; THIS IS TIBLE WiTH D CLASS 
OCA ¢ ; DRIVER WHICH GROWS THE # OF BYTES 
OCA ; TRANSFERRED FIELD IN THE IOSB TO A 
OCA 4 ; FULL LONGWORD. 
51 3 AS 00 BRA 5 MOVL IRPSL_IOST1#2(R5), RI ; Get bytes transfered. 
12 38 AS OED cf $ BLBC IRPS$L_IOST1(R5), eis ; Branch if transfer not successful. 
44 AS 1 01 00D CMPL R1, IRP$L_OBCNT(RS) : If completed whole transfer, skip 
ae 4 8 BEQL 26$ ; all this segment ing junk. 
32 AS 1 01 00D 9 CMPL R1, IRPSL_BCNT(RS) ; Bytes transfered = bytes requested? 
11 13 000c 340 BEQL «ss 238 : Branch if equal. 
38 AS} 2234 8F BO ODODE 41 MOVW #SS$_INCSEGTRA, - ; Else, change success status 
OE4 $ IRPSC_I0ST1(R55 ; to error status. 
OES 4 ; For the error cases: 
32 AS 51 D1 O0E4 44 21$: CMPL R1, IRPSL_BCNT(RS) ; Bytes transfered < bytes requested? 
05 1F O0E8 345 BLSSU 23 : Branch if Less than. 
1 D4 QOQEA 46 CLRL Ri ‘ : Else, assume no bytes transfered. 
3A AS D4 OODEC 4 CLRL IRP$L_10S7142(R5) ; Clear bytes transfered in IRP too. 
40 a5 51 C0 EF rt: 238: ADDL R1, IRPS$L_ABCNT(RS) ; Update accumulated byte count. 
51 51 17 #O9 EF OOF3 34 EXTZV #VASV_VPN? - ; Convert bytes transfered to 
ore 50 #<32-VASV_VPN>, R1, RI; pages transfered. 
48 AS 51 co F 51 ADDL R1,1RPSL SEGVBN(RSS ; NEXT STARTING VBN (OR ERROR VBN) 
09 38 AS) =6ED «(OOFC 3 IRPS$L_IOST1(R5) .24$ ; BRANCH IF ERROR 
40 aS C3 01 SUBL3 Hs se gb 
44 AS 1 & IRP$L_OBCNT(R5) ,- ; CALCULATE REMAINING BYTE 
32 aS 1 5 IRPSL_BCNT(RS) ; COUNT TO BE TRANSFERRED 
BE 12 ; 9 § BNEQ BRW_QNXTSEG ; BRANCH IF ANOTHER SEGMENT TO DO | 
109 28 3; LAST SEGMENT COMPLETED OR ERROR 
109 30 bas 
40 a b0 109 61 MOVL IRPSL_ABCNT(RS) ,- 
SA A 10¢ 6¢ IRP$L~10ST1+2(R5) ; SET BYTES TRANSFERRED 
3.6 COE a 1) 1 ? MOVL IRPSL Nag rg htt: R3 ; GET SAVED SVAPTE 
C AS 5 1) i : 26$ MOVL R3,1RP L_SVAPTE (RS) 3; AND PUT IT BACK 
1 6g IF DF CAS$_MEASURE_IOT 
| 
FEE7" 30 0116 68 BSBW PMSSEND_RQ ; INSERT END OF 1/0 REQUEST MESSAGE | 


— 
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LOC 1OPOST - 1/0 COMPLETION POSTING 16-SEP-1984 :58 VAX/VMS Macro V04-00 P 
Oe 80s 175. POMPLETION Posting ereEpmobe os18s10 Vers" eactigcropogroman;2 2% (8, 
11 
iH ? ENDC 
76 2A a5 02. €0 119 f BBS #IRPSV_PAGIO, IRPSW_STS(R5),PAGIO ; BRANCH IF PAGE 1/0 
11E 46374; 
VE i ; SWAP 1/0 COMPLETION 
11E ; 
18 AS 14485 00 116 £8 MOVL IRPSL_ASTPRM(RS) ,ACBSL -KAST(RS) SET KERNEL AST ADDRESS 
3 CO i BRB 40$ AND ENQUEUE AST 
1 3 
a ; : > BUFFERED 1/0 COMPLETION 
b158aRe 
00000161'EF  9F 0 3 BUFIO: PUSHAB 40$ ; ‘INLINE’ SUBROUTINE CALL. 
128 ; 
a B 8: THE FOLLOWING PIECE OF CODE MAY BE CALLED AS A SUBROUTINE DIR ECTLY 
0128 389 ; TO DO THE PART OF BUF FER ED 1/0 COMPLETION THAT NORMALLY EXECUTES 
4 8 30 ; AS A RESULT OF AN IOPOST SOFTWARE INTERRUPT. 
0128 36 : THE F11BXQP, FOR EXAMPLE, EXECUTES VIRTUAL fate SYSTEM FUNCTIONS 
0128 393 : IN PROCESS CONTEXT. THERE IS NO NEED FOR THE IOPOST INTERRUPT 
0128 394 ; AND SPECIAL OPRHEL “AST TO POST I/0 COMPLETION. AFTER RETURNING 
oi : 99 ; FROM THIS SUBROUTINE, THE F11BXQP WILL DO A 
gi 8 ; JSB @ACBSL_KAST (R5) 
4 B 399 : TO COMPLETE POSTING THE 1/0 COMPLETION. 
128 400 : BOTH THE IOPOST SOFTWARE INTERRUPT AND THE SPECIAL KERNEL COMPLETION 
oi 8 401 : AST ARE AVOIDED. 
8 B 103 : THE CALLER SHOULD TEST IRP$L_PID AND POST A NORMAL IOPOST INTERRUPT 
or : 404 : IF IT IS NEGATIVE, AS THAT CASE IS NOT HANDLED HERE. 
01 8 406 : THE F11BXQP CODE THAT USES THIS ROUTINE IS IN CF11X.SRCJIODONE.MAR. 
128 408 : IPL = IPL$_ASTDEL TO BLOCK PROCESS DELETION (PREVENT LOSS OF IRP). 
128 409 : R4 = PCB ADDRESS 
128 410 : RS = IRP ADDRESS 
158 aia: 
128 £18 1OCSBUFPOST:: 
3A AG «6B6 0012B C414 INCW PCBS$W_BIOCNT(R4) UPDATE BUFFERED 1/0 COUNT 
03 2A aS. OC £1 O01 : 415 BBC #IRPSU_FILACP, IRPSW W_STS(RS)N NOTACP ; BR IF NOT ACP I/O 
3E AG) BSC 416 INCW PCBSU, BIOCNT(R4) ; RESTORE piRECT 1/0 COUNT 
6 41 NOTACP: ; 
4 ‘13 IF DF CA$_MEASURE_IOT 
FEC7* 30 é 4 1 BSBW §PMSSEND_RQ ; INSERT END OF 1/0 REQUEST MESSAGE 
? 4 .ENDC 
50 0080 c4 pO 0139 425 MOVL  PCBSL_JIB(R4),RO : GET JIB ADDRESS 
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1 13 
1OC1OPOST - 1/0 COMPLETION POSTING 16-SEP-1984 00:16:58 VAX/VMS Macro V04-00 Page 10 | 
V 1SOt PAGIO = PAGE 1/0 COMPLETION iets 7 90:19:78 YeyS. SRCJ10C LOPOST. MAR; 2 ta) 
4 4 g .SBTTL PAGIO = PAGE 1/0 COMPLETION 
4 4 4 : PAGING 1/0 COMPLETION 
194 4 : + INPUTS: | 
194 4 8 : R3 = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
194 459: R4 = PROCESS CONTROL BLOCK ADDRESS 
194 460 : RS = 1/0 REQUEST PACKET ADDRESS 
194 o8¢ : FOR PAGE READ COMPLETION, THE FOLLOWING LOCATIONS IN THE 
194 463 ; 1/0 REQUEST PACKET HAVE SPECIAL SIGNIFICANCE. 
196 465: IRPSL_ASTPRM § = ORIGINAL PROCESS PAGE TABLE ENTRY BACKING STORE 
194 466 : ADDRESS IF PAGE WAS A COPY ON REFERENCE PAGE. 
194 +8 3 PFNSV_GBLBAK SET IF IT WAS GLOBAL CRF 
194 4 8 : = 0 IF ROT A COPY ON REFERENCE PAGE 
194 46 ; IRPSL_AST = MASTER PTE CONTENTS IF GLOBAL CRF (>0) 
194 470: = SLAVE PTE ADDRESS IF GLOBAL NOT CRF (<0) 
194 42] : = 0 IF NOT GLOBAL 
194 £38 : FOR PAGE WRITE com PLETION, THE FOLLOWING LOCATIONS IN 
196 re ; THE 1/0 REQUEST PACKET HAVE SIGNIFICANCE. 
194 476 ; IRP$B_RMOD = REQUEST MODE ! Acesy QUOTA. IF ACBSV_QUOTA IS SET, 
0194 477: PROCESS REQUESTED AN AST ON PAGE WRITE COMPLETION 
0134 478 : IRPSL_AST = AST ADDRESS IF REQUESTED 
196 479: IRPSt “ASTPRM = =_ AST PARAMETER IF SPECIFIED 
0194 480: IRP$L~10SB = ADDRESS OF I/0 STATUS BLOCK IF SPECIFIED. IF 
0194 481 ; NON-ZERO, THEN PROCESS EXPECTS I/0 STATUS RETURNED. 
7E 56 7D 0194 ass PAGIO: mova RG. (SP) : SAVE SOME MORE REGISTERS 
56 655~—soéO 197 4 4 MOVL + USE R6 FOR IRP ADDRESS 
O18 a8 SETIPL #IPL$_SYNCH : SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 
55 6C as D0 190 487 MOVE PCBs - ven RS : USE RS FOR PROCESS HEADER 
17 1A3. 489 #<32-UASV 3 FORK PAGE COUNT 
57 3A A6 1A4 490 IRPSL erie ORS) OF THE DATA TRANSFERRED 
33 2A a6 01_—si#E‘O 1a7 31 BBS #IRPSO_FUNC, iRPsu’ RT nei. PAGRD_DONE ; BRANCH IF PAGE READ 
1AC 493 : PAGE WRITE COMPLETE - R7 = NUMBER OF PAG s 
1M 494 3 CONDITION CODES SET FROM LOAD OF R 
1F 613 «O1AC «496 BEQL 608 RANCH IF NO PAGES SUCCESSFULLY TRANSFERRE 
50 63 15 90 EF Tag 49 EXTZV sPTESY PFN, #PTESS_PFN, cry” RO ;GET PFN FROM 
00000000°EF 50 01 0183 498 CMPL MMGSGL_MAXPFN ~ iis THIS P PAGE IN SHARED MEMORY 
11 1A O1BA 499 BGTRU é $ R IF PAGE IN SH MEM, NO PFN BATABASE 
53 pp 1BC 0 20$:  PUSHL R : SAVE SV ABTEN 
01c 18 1 BSBW  §PFN_10_DONE : SET PEN DATA BASE 
9 § + CONDITION CODES SET FROM DECREF 
3 16 3 ie BGTR 408 ; BRANCH IF REFCNT NOT 0 
FESA’ 30 O1C 6 BSBW MNGSREL PFN : RELEASE THE PAG 
53 BE 04 C1 01C6 40$: ADDL3 #4, (SP)+,R3 + GET NEXT PTE ADDRESS 
ef 57 FS OICA 8 SOBGTR R7.2 $. : DO THE NEXT PAGE IF ANY 


1OCIOPOST = 1/0 COMPLETION POSTING 16-SEP-1 :16:5 X/VMS Macro V04-00 Pp 11 10( 
We 80% PAGIO = PARE 1/0 COMPLETION i 1984 90: 18 § Hy YS.SRCJIOCIOPOST.MAR;2 oF id vo 
57 08 A6 00C4 BF AB cp i 60$: SUBW3 #IRPSC_LENGTH, IRPSW_ SIZE (RG) R75 IF EXTENDED 1/0 PACKET 
16054 + SPECIAL UPDATE SECTION KERNEL AST 
04 38 AGB ED 1p4 1 BLBC —IRPSL_I10ST1(R6) ,PAGWRT _ehRr : BRANCH IF PAGE WRITE ERROR 
1p 18 $ CONDITION CODES SET FROM LOAD OF R7 
1D 1 bauet _ERR_DONE: 
68 13 01D 1 BEGL | PAGIO_DONE1 ; BRANCH IF NOT, COMPLET : THE 1/0 HERE 
6D 11 ODA 18 PAGIO~DONE2 : COMPLETE 1/0 IN PROCESS CONTEXT 
1DC 519 PAGWRT_ERR: 
0150 31 1pe p BRW PAGWRT_ERR1 
1DF ‘ : PAGE READ COMPLETE - R7 = NUMBER OF PAGES 
IDF 3: CONDITION CODES SET FROM LOAD OF R7 
1DF 5 PAGRD DONE : 
3c 0 13)—«O1DF 6 BEQL 1008 ; BRANCH IF NO PAGES SUCCESSFULLY TRANSFERRE 
01A0 = 30 oie} f 20$:  BSBW PFN_IO_DONE + RECORD PAGE READ DONE 
gies ; : CONDITION CODES SET FROM DECREF 
1114 a1e4 31 ; BGTR 308 ; BRANCH IF REFCNT NOT ZERO 
aiee 5 : NO MORE REFERENCES FOR THIS PAGE, DON'T MAKE IT VALID, RELEASE IT 
04 A3 oF Oleg 5° PUSHAL 4(R3) : SAVE PTE Abr FOR NEXT PTE 
FEI4" 30 OTE = BSBW WNGR LPFN : RELEASE T 
08 BA grec POPR M<R3> ; RECOVER PTE. FOR NEXT PAGE IN CLUSTER 
51 1006 04 (C1 TEE 38 ADDL3 i IRPSL _AST(R6) ,R1 + GLOBAL PAGE? 
25 18 O1F 9 BGEQ 80% ; BRANCH IF IT ISN*T 
1F 3611 «#O1F5 «©6540 BRB 60$ YES T CONTEXT FOR NEXT PAGE IN CLUSTER 
0000'DF40 07 «988 O1F7 541 308: BISB #PFNSC_ACTIVE, au*PENSAB_ STATEER PAGE I$ NOW A IVE 
50 iF € O1FD 4g BBSS § #PTESV-VALID,RO,4 : TURN VALID ON WITH 
83 50 (C8 0201 543 40$: BISL RO, (R33+ : SET VAL {tb IN PTE 
04 544 : NEXT PTE ADDRESS IN R3 
5110 As ‘9 04 45 MOVL JRPSL_AST(R6) .RI : GLOBAL PAGE? 
1 1 08 46 BGEG 0$ + BRANCH TF NOT 
OA ae : PAGE IS A GLOBAL PAGE, R1 = PROCESS PTE, MUST MAKE !T VALID TOO 
52 61 B867FFFFF ef CB 020A «+550 ° BICL3 #*C<PTESM PROT ! PTESM_OWN>,(R1),R2_; PROTECTION AND OWNER FIELDS 
81 52 50 C9 12 51 BISL3 RO,R2,(R1S+ ; MAKE P PROC cess PTE VALI 
10 A6 31 D9 1 3 6 $: MOVL Ri 1, JRESL_ AST(R6) ; SET U NEXT PAGE IN CLUSTER 
st #F 1A $:  SOBGTR DO TH UE Nex XT PAG 
7F 38 AG CED 1p 34 1 100$:  BLBC et ted 10$T1(R6) ,PAGRD “ERR ; BRANCH IF PAGE READ ERROR 
1 36 3 : LAST PAGE IN CLUSTER HAS BEEN PROCESSED, COMPLETE THE PROCESSING 
1 2 : ASSOCIATED WITH THE TRANSFER AS A WHOL 
1 35 BAGIO_DONE: 
5114 6 09 1 560 MOVL JRPSL_ ASTPRM(R6) ,R1 : COPY ON REF ERENCE SECTION? 
18 1 3 61 BEQL + BRANCH OT 
51 17”—«€1 66 BBC sPENSY SL BAK R1,10$ § : BRANCH if NOT GBL CRF 
55 ‘FF OD é MOVAL anncs PHO,R5 : SYSTEM HDR FOR GBL CRF PAGE 
1 Ag p 3 64 MOVL inst witty ai : CONTENTS OF GBL PTE FOR GBL CRF 
51. 5 § 10$:  CVTWL R1 : SECTION INDEX 


1OC1OPOST - 1/0 COMPLETION POSTING 16-SEP-1984 00:16:58 VAX/VMS Macro v04-00 Page 12 
Vo200! PAGIO = AGE 1/0 COMPLETION iets 90:19:78 LEYS SRCIIOCTOPOST MAR:2 ve 
09 EF EXTZV vA V_VPN,- 
#<32-VASV you - 3; PAGE COUNT FROM 
50 3A AG IRP$L_I0ST1+2(R6),RO : BYTE COUNT TRANSFERRED 
FDBE’ 30 5 BSBW MMGSSOBSECREF ; SUBTRACT RO FROM SECTION REFERENC COUNT 
; REPORT THAT PAGE 1/0 HAS COMPLETED. 
3 NORMALLY IT IS ONLY NECESSARY TO REPORT ‘PAGE FAULT COMPLETE’ 
; TO THE PROCESS THAT INITIATED THE 1/0, BUT FOR SYSTEM PAGES 
; AND FOR GLOBAL PAGES, MULTIPLE FAULTS CAN OCCUR FOR THE SAME 
; PAGE WHILE IT IS ON [TS WAY INTO Y. ALL PROCESSES WHICH 
; FAULT THE PAGE WHILE ITS STATE IS "READ IN PROGRESS’ GET QUEUED 
: ON THE COLLISION PAGE QUEUE, AND THE COLLISION BIT IS SET IN THE 
0 : TYPE BYTE OF THE PFN DATA BASE. S ROUTINE ALSO REPORTS THE 
0 ; COLLISION PAGE AVAILABLE EVENT TO ALL PROCESSES ON THE COLLISION 
9 : QUEUE, IF THE COLLISION BIT IS SET. 
r) 


O$: 
PAGIO_DONE1: 

MOVZBL #PRIS$_NULL,R2 ; SET FOR NULL PRIORITY INCREMENT 
RPTEVT PFCOM ; REPORT PAGE FAULT COMPLETE 


52 00 9A 


IRP$W_BOFF WAS INCREMENTED IF ANY OF THE PAGES HAD THE COLLISION BIT SET 


R7 = NON ZERO IF SUPPOSED TO ISSUE KERNEL AST 
SED ONLY FOR PAGE WRITE COMPLETIO 
BUT MUST BE ZERO FOR PAGE READ COMPLETION 


PAGIO_DONE2: 
TSTW 


PPP MS WOW MD ALOMM OOOO OO OO OUI MPIPPINIPIPMPPIPIPNIPININVY MOD O oe 


LPQRPPPPPPPAP PDP PPD DP DPE DP DPD DP DE SPSS ISTITUTO 
=O OOD NAME WIN (OOO NOU EWN SOO NOAUM EWN 0 OONA UE WIN "OOOO UE AAR)" OVOo~woe ~ 


0909090909 SII NIN NIN NINO AOA AOMUUUUIE SERRE RARER ERE E RRR P RPP PPE PA 
RNIN 9 2 @ AQODOOODOO00000000.0.00 0000000000000 00090909 INNS 


0 
0 
0 
0 
0 
0 
0 
0 
6 
30 AB so 0 IRP$SW_BOFF (R6) : ANY PAGES WITH COLLISION BIT SET? 
15 13 BEQL 60% : BRANCH IF NOT 
54 DD 0 PUSHL  R4 : SAVE PCB ADDRESS 
0008'CF B5 40S: TSTW  W*SCHSGQ_COLPGWQ+WOHSW_WOCNT ; ANYONE WAITING? 
6B «15 BLEQ : BRANCH IF NOT 
54 O000'CF 00 MOVL _ W*SCHS$GQ_COLPGWO,R4 : GET NEXT PCB 
0 RPTEVT COLPGA : REPORT "COLLISION PAGE AVAILABLE’ 
EF 11 0 RB : REPEAT UNTIL QUEUE IS EMPTY 
10 BA 0 50$:  POPR #M<R4> ; RESTORE SAVED PCB ADDRESS 
60S: SETIPL #1PLS_1OPOST + LOWER TO 1/0 POST LEVEL 
57 ps TSTL =OR ; EXHAUSTED PAGE COUNT NON-ZERO? 
16 1 BNEG § PAGIO_KAST : BRANCH IF YES, COMPLETE 1/0 IN PROCESS 
7E 38 AG CE 6 BLBC  IRP$L-IOST1(R6),PAGIO_ERR ; BRANCH IF MORE ERROR PROCESSING TO DO 
50 (56 BO MOVL ; GET PACKET ADDRESS FOR RELEASE 
56 «BE O77 MOVG  (SP)+,R6 : RESTORE SAVED REGISTERS 
: RO = 1/0 REQUEST PACKET ADDRESS 
4 PAGIO_ERR_DONE: 
FD89" 30 4 BSBW  EXESDEANONPAGED ; AND RELEASE IT 
50 01 «—3¢ 7 MOVZWL #RSNS$_ASTWAIT,RO : SET AST WAIT RESOURCE WAIT NUMBER 
FD83" 30 A BSBW SCHSRAVAIL : SET RESOURCE AVAILAB 
FD8D = 31 D BRW 1OPOST : CONTINUE TO PROCESS POST QUEUE 
: COMPLETE THE PAGE WRITE IN THE PROCESS CONTEXT 
PAGIO_KAST: 
55 56 D0 2 MOVL  —R6,RS : 1/0 PACKET ADDRESS BACK TO NORMAL REG 


<loe 
<2 
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1OC1OPOST - 1/0 COMPLETION POSTING Ig-SEB-1984 00:16:58 YAX/viNS Macro V04-00 Page 13 
v04-001 PAGIO = PAGE I/C COMPLETION -SEP-1984 17:13:10 CSYS.SRCJIOCIOPOST.MAR;2 (4) 
Ht 70 3 623 MCVQ = (SP) +, R6 ; RESTORE SAVED REGISTERS 
51 oC A 6 4 MOVL  IRP$L’PID(RS),R1 PROCESS ID FOR ISSUING KERNEL AST 
18 AS (OO 0099 f E A 5 MOVAB MMGSUPDSECAST ACBSL. KASTERS) ADDRESS TO START KERNEL AST 
A : $ MOVZBL Braye LotR nd : PRIORITY INCREMENT 
0B AS 80 : 8 9 6 1$8 “\BO;ACBSB_.RMOD(RS) § ; SET INTERNAL AST FLAG 
FD63° 9A 8 BSBW SCHSQAST + NOW QUEUE THE KERNEL AST 
FD6D = 31 % 6 ; BRW 1OPOST + GET NEXT PACKET TO POST 
A é 1 : PAGE READ ERROR = CLEAN UP LOGIC 
AO 6 5 : R3 = PTE ADDRESS OF BAD PAGE 
A : 4: R4 = PCB ADD 
A 5: R5 = PROCESS HEADER ADDRESS 
AO 6 5 : R6 = 1/0 REQUEST PACKET ADDRESS 
02A0 637: R7 = 0 AND MUST BE PRESERVED 
AO 638: IRPSL_AST(R6) = PROCESS PTE ADR OF BAD PAGE IF GLOBAL PAGE 
A 639 3 IRPSL-ASTPRM(R6) = GPTX FOR START OF TRANSFER IF GLOBAL CRF 
6 AO 641 PAGRD_ERR: 
00E1 30 O2A 64g BSBW  PFN_IO_DONE COMPLETE AL 1/0 FOR ERR PAGE 
14 90 O2A3 64 MOVB  &#<PFN oa DELCON ' PENSC -RDERR> oe. 
0000'DF40 0205 644 Su PrNSIO’S ATECLRO ; EAD chro ATE 
5114 AG 09 0249 645 MOVL oRPSL NASTPRMCRE) o 3 CET BACKING: CTORE ADR IF CRF 
18 13 O2AD 646 BEQL 1208 ~ ; BRANCH IF NOT COPY ON REFERENCE 
OE 51 V7 el 0 AF 647 BEC ran tenes »R1,100$ |: BRANCH IF NOT GLOBAL C 
17 0 83 649 Fee LOAS : ADJUST GPTX BY 
52 3A AG 0286 650 IRPSL_ TOSTh eo CRS). a. 4 TRANSFERRED PAGE COUNT 
51 52 CO 0289 651 ADDL. R2,R1~ ; TO GET CORRECT GPTX FOR BAD PAGE 
1406 51 or C1 02BC 63¢ ADDL3) # RI, IRPSL ASTPRM(R6) : SET GPTX FOR START OF NEXT TRANSFER 
0000'DF40 1 0 02C1 653 100$:  MOVL R1,aW vee C_BAKCRO] : FIX BACKING STORE ADDRESS 
1 AG D3 C7 634 120$: sit TRESL_AST en t IF GLOBAL PAGE (NOT CRF) 
10 A6 046 CO O2tc 656 ADDL #4, IRPSL_AST(R6) : THEN SKIP OVER PROCESS PTE ADR 
0000" DF 49 BS 6 06 637 140$: TST aw’PFNSAG_REFCNTCRO]) =; Is THIS THE LAST REFERENCE? 
0000"DF 49 BS D7 659 TST @W°PFNSAW_SWPVBNCRO] : IF THIS PROCESS HAS BEEN SWAPPED OUT 
52 02 9A O2dDE 661 MOVZBL #PFNSC_BADPAGLST,R2 : THEN PUT THIS PAGE IN LIMBO 
FDIC 30 El 66¢ BsBW NGS INSP NSPENT : ON THE BAD PAGE LIST 
FD17" 30 64 150$: BSBW  MMGSRELPFN : OTHERWISE RELEASE THE PAGE 
PSS 3 ze eee 1308; BRW PAGIO_DONE + COMPLETE THIS PORTION OF THE PAGE READ 
8 EC ges : DO THE REMAINING SEGMENT OF THE 1/0 FOR A PAGE READ OR WRITE ERROR 
EC 668 : SKIP OVER THE PORTION THAT WAS TRANSFERRED SUCCESSFULLY AND SKIP OVER 
EC 669 : THE PAGE IN ERROR WHICH WAS DEALT WITH BY EITHER PAGRD ERR OR 
EC 670 ; PAGWRT ERR AND SET UP TO TRANSFER THE REMAINING PAGES TF A 
EC 671 : NOTE TRAT FOR PAGE WRITE ERRORS THE REST OF THE TRANSFER i NOT DONE 
EC 67¢ IF 1/0 COMPLETION STATUS IS RETURNED TO THE PROCESS. 
55 56 DO OSEE rs PAGIOLERR: R6,R5 : IRP ADDRESS 
56 3 7D EE erg RVG (Sh)+ RG : RESTORE ADDITIONAL SAVED REGISTERS 
17 F4 678 fess TAS VVPND> - : GET PAGE COUNT TRANSFERRED 
51 3A AS F567 IRP$L_IOST1+#2(R5),R1 
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LOCIOPOST - 1/0 COMPLETION POSTING 16-SEP-1984 :58 VAX/VMS Macro V04-00 Page 14 
y0%-001 PAGIO = PAGE 1/0 COMPLETION iets 7 90: 18 i SYS. SRCJIOCIOPOST.MAR;2 a 
1 06 O28 INCL R1 : COUNT THE ERROR PAGE AS DONE 
50 51 09 8 FA 8 ROTL #9,R1,RO : BYTE COUNT COMPLETED 
44 AS f FE 6 SUBL RO IRP$L_OBCNT (RS) ; BYTE COUN AINING 
6 BEQL «408 : BRANCH IF "WOT HING LEFT TO DO 
40 A5 D4 4 6 4 CLRL —sIRPSL_ABCNT(RS) ; ZERO ACCUMULATED BYTE COUNT 
30 ASB Pr . § : CLRW =—sIRP$W_BOFF (RS) ; ZERO BOFF AND 
44 a5 00 A 6 MOVL § JRPS$LIOBCNT(R5),- 
32 A D 688 IRPSL-BCNT (RS) : SET NEW BYTE COU 
48 a5 oD OF 689 INCL IRPSL-SEGVBN(RS) ; SEGMENT VBN wis” POINTING AT ERROR VBN 
53 4CA5 OD iF 690 MOVL RPSL DIAGBUF (R5) ,R3 STARTING SVAPTE OF ENTIRE TRANSFER 
4C AS 6341 ODE 1 631 MOVAL (R3)CER1),IRPSL_DIAG GBuF (RS): : STARTING PTE ADDRESS OF THIS SEGMENT 
18 98 IF DF ,CAS_MEASURE_IOT 
53 DD «(031B «| 694 PUSHL R3 : REMEMBER SVAPTE 
53 55 b0 1D 695 MOVL R5,R3 SET RP 
FCDD" 0 9 636 BSBW  PMSSSTART_RO : IN seRT OF Akt OF 1/0 REQUEST MESSAGE 
53 BEDO 0 69 POPL R3 SRESTORE SVAPTE 
0 6 £3 ~ENDC 
00EB 31 03 6 700 BRW QNXTSEG : QUEUE THIS SEGMENT AND RETURN TO IOPOST 
50 55 DO 0329 701 40$:  MOVL 5 + 1/0 PACKET ty. 
FF45 31 03 ¢ 10¢ BRW PAGIO_ERR_DONE 
83 : re 3 PAGE WRITE ERROR - CLEAN UP LOGIC 
O32F 706: R3 = PTE ADDRESS FOR ERROR PAGE 
03 F 707: R4 = PCB ESS 
32F 46-708 : RS = PROCESS HEADER ADDRESS 
O32F 709: R6 = 1/0 REQUEST PACKET ADDRESS 
O32F 710: R7 = 0 IF ALL COMPLETION LOGIC IS DONE IN IOPOST 
O32F 40711: = NON-ZERO IF COMPLETION (AND ERROR REPORT) ARE TO BE 
O32F fig ; RETURNED TO THE PROCESS. 
03 F 713: 
O32F 714 PAGWRT_ERR1: 
57 DD O32F 715 PUSHL R : SAVE KERNEL AST FLAG 
09 EF 0331 rig EXTZV aVA Volsuey 
17 0333 = 71 Fae OKs ; PAGE COUNT TRANSFERRED 
50 3A Ab 0334 718 1RPSL_ Losri 2c RO 
09 EF 0337 719 EXTZV VASVE 
17 03 9 720 : ORIGINAL PAGE COUNT 
57 44 Ab 33a 721 Ins TASYVPn> = R7 
57 50 C2 0330 «7 : SUBL : COUNT OF REMAINING PAGES 
6f D 49 7 TSTL 49) : IF NOT REPORTING ERROR TO PROCESS 
12 0342 724 BNEG 208 
57 01 DO 0344 725 MOVL #1,R7 : ONLY CLEAN UP THE ERROR PAGE HERE 
4? 7 : 3 REST oF aLRANSEER, wit BE DONE BY PAGIO_ERR 
7E D4 0347 727 208: CLRL -(SP) INIT CE PAGES LAG 
50 63 15 Q EF 0349 7 8 EXTZV #pTESy PFN, #PTESS_PFN, rd) R ENP FROM ote 
00000000' EF D1 af 7 CMPL MMGSGL_MAXPFN ~ 1§ T His gee AGE. IN SHARED MEMORY 
: 1A 0355 730 BGTRU , és ‘aR It PAGE IN SH MEM, NO PFN SATABASE 
pp 57 731 708: = PUSHL RS ; SAVE SVAPT 
0038 0 597 : BSBW N10 LETE {0 0 FOR THIS PAGE 
00 0000'pF40 E : f Poe BBSS wpe V ~RODIFY, a@W*PFNSAB_ éTATECR 1,80$ ; FORCE MODIFY BIT 
735 ; 
63 736 : CONDITION CODES STILL SET FROM DECREF AT END OF PFN_1O_DONE 
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POSTING 16-SEP=1 :58 VAX/VMS v04-00 Page 15 10( 
COMPLETION Sree ayo, Sos1siie LeNS MES Macro NOt=00 2 ” vo. 
: BGTR 1208 ; BRANCH IF NOT THE LAST REFERENCE 
BBSS  #0,4(SP),100$ $ BRANCH IF NOT ERROR PAGE 
: THIS IS THE PAGE THAT HAD THE WRITE ERROR 
: MOVL  #PENSC BADPAGLST, R2 ; PUT IT ON THE BAD PAGE L 
BSB MMGSINSPF : WITH "MODIFY SET AND SAD CLEAR 
100$: BSBW  MMGSRELPFN : NO MORE REFERENCES, RELEASE THE PAGE 
1208: ADDL #4, (SP)+,R3 + NEXT PTE ADDRESS 
130$: POPR #*M<RO,RI> :CLEAN OFF BAD PAGE FLAG 
! R1 = SAVED KERNEL AST INDICA 
MOVL 1,87 + PUT IT IN R7, SET CONDITION W CODES 
BRW PAC" _ERR_DONE 
: PFN_10_DONE 
; INPUTS: 
R3 = SVAPTE 
; R4 = PROCESS CONTROL BLOCK ADDRESS OF PROCESS THAT REQUESTED THE 1/0 
; RS = PROCESS HEADER OF THE PROCESS THAT REQUESTED THIS 1/0 
: R6 = 1/0 REQUEST PACKET ADDRESS 
; OUTPUTS: 
RO = arin 
; R3_ PRESERVED 
; IRPS ge Barr cR6) INCREMENTED IF THIS WAS A COLLISION PAGE 
; CONDITTON CODES SET FROM DECW aW*PFNSAW_REFCNTLROJ 
Brn. 10_ DONE : 
EXTZV #PTESV_PFN #PTESS PFN,(R3),RO ; GET PAGE FRAME NUMBER 
BICB3 #*C<PFASM_COLLISION ! "PFNSM P PAGTYP>,- ; FETCH THESE 
aW“PFNSAB-TYPELROJ,Ri ; BITS FROM PFN TYPE BYTE 
BBCC —- #PFNSV_COCLISION.R{ 208 CLEAR cO LIS ION BIT BRANCH IF HAs CLEAR 
BICB #PFENSM™COLLISION. aw PPasia’t R If IN PEN DAT 
INCW IRP$W_BOFF (R6) Aust. ER pty’ THE’ COLLISION. QUEUE 
208: CPB Ry APFWSC _PPGTBL t IF PROCESS PAGE TABLE PAGE 
MOVZWL PHD$W_PHVINDEX(R5).R1 ; MUST COUNT ONE LESS 
BSBW | MMGSDECPHDREF 1 : ESS HEADER REFERENCE 
40$:  DECREF : ONE LESS RET ERENEE FOR THE PAGE 
RSB : RETURN WITH CONDITION CODES SET 
: TO NEW STAT THE REFCNT 


IOC IOPOST - 1/0 COMPLETION POSTING 16-SEP-1984 16:5 AX/VMS Macro v04-00 Pa 1 
v04-001 VIRTUAL (OR LOGICAL) I/0 COMPLETION iets 7 90:19:78 LEYS SRCI10C1OPOST_MAR:2 - (8) 
4 5 ; -SBTTL VIRTUAL (OR LOGICAL) I/0 COMPLETION 
Bf 3 ; VIRTUAL (OR LOGICAL) 1/0 COMPLETION 
: f : ; CALLING SEQUENCE: 
: 131 ; BRW VIRTUAL 
6 8 738 : INPUTS: 
0385 795 ; Ri = REQUESTED BYTE COUNT, POSSIBLY DIFFERENT FROM TRANSFERRED 
38) 136 ; YTE COUNT FOR MAGIAPE 
B 797 ; R2 = IRP$W_BOFF CONTENTS 
385 798 ; R3 = SVAPTE OF START OF TRANSFER 
335 799; R4 = PCP ADDRESS ASSOCIATED WITH THE PID IN THE PACKET 
pae2 aay 3 RS = IR® ADDRESS 
0385 80¢ > OUTPUTS: 
0385 804 ; BRANCHES TO UNLOCK, PRESERVING R1,R2,R3 
0385 805 : OR BRANCHES TO IOPOST 
0385 BO? 
B382 508 -ENABL LSB 
0385 810 VIRTUAL_LOGIO: ; VIRTUAL (OR LOGICAL) 1/0 FUNCTION 
46 AS BS 0385 811 TSTW IRP$L_OBCNT+2(R5) ; SEE IF BYTE COUNT > 
OF 13 Seen aig BEQL 1$ ; EQL IMPLIES NO, BRANCH TO OLD CODE 
5 3A A5 DO O3BA 814 MOVL IRPSL_IOST14#2(R5), RO ; Else pickup new, longer count. 
40 AS 50 CO 038 815 ADDL RO, IRP$L_ABCNT(RS5) : Accumulate total bytes transfered. 
3A A 40 AS 00 039 818 MOVL TRPSL_ABCRT (RS) , = ; Set accumulated bytes transfered. 
OD 11 a3e7 18 BRS ! - 3; Rejoin common code. 
50 3A A5 3C b3c9 820 1$: MOVZWL IRPSL_IOST1#2(R5), RO ; Get old bytes transfered count. 
40 AS CO O3CD 821 ADDL RO, IRPS$L_ABCNT(RS) ; Accumulate total bytes transfered. 
3A AS 40 AS) BO 0301 é MOVW IRPSL_ABCAT(RS), = ; Set accumulated bytes transfered. 
0306 IRPSL~10ST1+2(R5) ; (Note movw due to code path that 
8308 : 3 ; insures < 64K byte transfer.) 
50 oD B308 : 6 38: PUSHL RO ; Save # bytes transferred. 
a Di 03D 7 CMPL RO, R1 ; Do bytes xfered and requested match? 
‘3 13 DB 8 BEQL 9$ : Branch if they match. 
50 1C A dO DD MOVL IRPS$L_UCB(R5) ,RO ; RO => UCB. 
05 =€0 E1 0 BBS S*#DEVS$V_SQD,- 
OA : Ad E3 1 UCBSL_DEVCHAR(RO),9$ =; If SET, sequential device 
6 A E9 E6 § BLBC IRP$L~IOST1(R5), 9$ ; If xfer count urena. guarantee 
38 AS) 62234 BF Ss BO rz, MOVW #SS$_INCSEGTRA, - ; that final status is an error 
F 4 RPSC_IOST1(R55 ; (either the driver's or ours). 
3 68 OF? ef 4 5 5 9S: ASHL #-VASS BYTE (SP)+, RO ; Calculate number of blocks transfered. 
48 AS 0 ¢ F § ADOL RO, IRPSL SEGVBN(RS) ; Calculate next disk segment address. 
4C 38 AS EO a4 BLBC IRPSL_10ST (R5),20$ ; IF LBC 1/0 ERROR 
33 10 AS) OD FD 8 MOVL IRPSL CB(RS) RO ; GET at ae OF DEVICE UCB 
2— 38 AO) 2OO05:tié€E 401 9 “#DEUSV_SQD CBSL_DEVCHAR(RO) ,1 $ ; IF SET, SEQUENTIAL DEVICE 
40 a5 C3 04 6 40 SUBL3 TRPSL _ABENT (AS), 
44 AS 4 4 RPS$L_OBCNT(R5),=- ; CALCULATE BYTES REMAINING 


} 
ed 


- 1/0 COMPLETION POSTING Laat 4 9 90: 1¢: 38 eat v04-00 Page 
VIRTUAL (OR LOGICAL) I/0 COMPLETION ~SEP-19 4 17:1 SYS.SR ci (TOP OST.MAR;2 
32 A 4 43 JRPSL_BCNT(RS) : 
§ } 40D 4 BEQL 0$ ; IF EQL NONE 
51 7 &F 4OF 44 ASHL #-VASS_BYTE,R1,R1 3 CALCU ULATE NUMBER OF PAGES REQUESTED 
212 72 ¢ QNXTSEG: 
414 23 i 3 ADVANCE THE SVAPTE TO POINT TO THE BORT ION OF THE PAGE TABLES THAT MAP THE 
414 48 ; BUFFER FOR THIS SEGMENT. IF THIS IS AN ERASE I/O, DO NOT ADVANCE THE 
o1¢ 7H ; SVAPTE, AS THE ENTIRE TRANSFER IS MAPPED BY A SINGLE PAGE TABLE PAGE. 
QOOO'CF D6 0414 51 INCL W*PMSSGL SPLIT 3 COUNT A SPLIT TRANSFER 
A €E1 0418 2¢ BBC #1O$V_ERAS ; BRANCH IF NOT ERASE = UPDATE SVAPTE 
06 2 a3 41A 85 IRPSW “FUNECAS), 13$ ; 
2F 30 0410 54 BSBW CHECK“ERA : Is THIS AN ERASE 1/0 REQUEST 
05 50 £8 04 9 55 BLBS RO 0,698 ANCH IF YES = DO NOT ADVANCE ySVAPTE 
2C AS. 6341 —siODE «OS 28 13$: MOVAL (RS)[%1],IRPSL LSVAPTE(RSS ws; ADDRESS OF NEXT PTE ENT 
5 D0 04 8 857 69$:  MOVL RS 4 : toPY 1/0 REQUEST PACKET ADDRESS 
55 1C AS DO 0428 858 MOVL RPSL UCB(R3) RS : COPY UCB ADDR 
47 10 04 r 59 BSBB LOCSQRK XTSEG 3 QUEUE THE NEXT VIRTUAL SEGMNET 
FBD9 = 31 O63) 360 5$: BRW 1OPOST 
0% . Bee 3 ALL SEGMENTS OF THIS TRANSFER ARE COMPLETE 
0434 Bes ios: 
51 446 05 DO 0434 65 MOVL IRPS$SL_OBCNT(RS) RI : GET ORIGINAL BYTE COUNT 
53 4C AS DO 0438 866 MOVL IRPSL~DIAGBUF (R5) ,R3 : GET ORIGINAL PAGE TABLE ADDRESS 
04 12 043C 367 BNEQ 15$ : NEQ implies | IRP$L_DIAGBUF was valid. 
53 2C AS 00 Oa 68 MOVL RPSL SVAPTE(R5) ,R3 3 If not valid, then IRPSL_ SVAPTE is. 
2c AS) 653) «60 «(044 869 15$: MOVL RS, 1RPSL_ SVAPTE (RS) : SVAPTE MUST BE CORRECT 
FC4D «631 0446 70 BRW UNL : 
0449 871 
0449 Hq z 
Bete a7 ; 1/0 OPERATION ENDED WITH AN UNSUCCESSFUL STATUS 
ree of : IF THF REQUEST IS LOGICAL I/0, BRANCH BACK TO UNLOCK. (10$) 
0449 er? ; IF THE DEVICE IS A SEQUENTIAL DEVICE, THEN THE I/O PACKET IS 
eet 4 : MERELY SENT TO THE ACP FOR NOTIFICATION OF THE ERROR. 
0449 Hf ; IF THE DEVICE IS A RANDOM DEVICE. THEN THE VIRTUAL BLOCK NUMBER 
0449 81 ; STORED IN IRP$L_SEGVBN IS THE BLOCK THAT HAS AN ERROR, 
ree oe¢ 3 
449 8 
04 €1 0449 84 20S: BBC #IRPSV VIRTUAL «= 
E6 2A AS 44B $2 IRPSW_STS(R 0$ ; Branch IF Logical 1/0 
46 AS 8 ase 6 TSTW RPSL BCA, > SEE IF BYTE COUNT > 64K 
ee 45 87 BEQL : EQL implies < 64K. 
3A AS D4 0453 88 CLAL IRPS$L_IOST1#2(R5) ; Zero byte count before recycleing IRP 
03 11 38 +4 30s BRB 40$ : Branch around 
3A AS B4 $28 4! 408 CLRW IRP$L_10ST1+2(R5) ; Zero byte count before recycieing IRP 
53 55 v0 0458 38 MOVL ; cory IRP ADDRESS 
3—E AGO? 43e 94 DECW Reese DIOCNT( JUST DIRECT 1/0 COUN NT 
2 1 AA 046 95 BICW #IRPS $A AVIRTUAL Aalst stsingy C EAR VIRTUAL 1/0 FLAG 
2c A 4C A D 465 9 MOVL IRPSL R3) , IRPSL ~SVAPTECR ; RESET PAGE TABLE ADDRESS 
5 A p 46A 9 MOVL Rest b GET O RIGIWAT BYTE COUNT 
009F 46E 98 BSBW aceaTone + QUEUE PACKET TO ACP 
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POST Ine Pg 16-S o- 1388 90:16:38 aes Macro v04-00 Page " 


“SEP=19 SYS.SRCIIOCIOPOST MAR; 2 
~SBTTL QUEUE NEXT SEGMENT 
FUNCTIONAL DESCRIPTION: 


IOCSQNXTSEG PERFORMS THE FUNCTION OF OVE Is THE NEXT 
SEGMENT OF A VIRTUAL 1/0 REQUEST THAT DID NOT MAP TO A 
SINGLE CONTIGUOUS I/0 REQUEST. 


CALLING SEQUENCE: 

BSBW 1OCSQNXTSEG 
INPUTS: 
EQUEST PACKET 


ADD 
DDRESS ASSOCIATED 
DDRESS OF THE ASS 


R 
0 


po) 

=> 

" 
cue 
QooO™~ 
@wo 
rPrn 


ESS 
WITH THE PID IN THE PACKET 
CIATED DEVICE 


OUTPUTS: 
R4 NOT PRESERVED 
-ENABLE LSB 
Out of Line code for Logical 1/0. 


; This code mimics results of 
IOCSMAPVBLK for Logical 1/0. 


SNS NNN <s 


PAMO ONS KL L LSS LESSON OOOO WWIWIN NANA AANA AANA 


x ee 


PUPP SEITE Bt BP BS BP BB AAA AAA AAI PON 4 2 SS OOOO 


DOONAN AN OS OOD NA NE WIN SO OD NAME WIN OS OD NAME WIN OOD NOAU EW OO ODNOAUIE WW 


SPSSPLELELEREREERERR ERR RRR R EER ERR RRO RRR EERE 


51 50 00 5$: MOVL _RO,R1 Namely R1 = LBN. 
24~—=CO«d1 BRB 10$ Branch back to common code. 
IOCSQNXTSEG:: 
52 18 A3 MOVL IRPSL_WIND(R3).R2 : GET ADDRESS OF MAPPING WINDOW 
51 32 a3. 00 MOVL IRP$L_BCNT(R3) ,R1 ; GET SIZE OF NEXT SEGMENT EXE 
50 48 a3 8 MOVL —§ IRPSL~SEGVBN(R3) ,RO : GET STARTING VIRTUAL BLOCK NUMBER ext 
8 : ALTERNATE ENTRY TO IOCSQNXTSEG: 104 
: BSBW = I1OCSQNXTSEG1 104 
: ADDITIONAL INPUTS: 10 
: RO = VIRTUAL BLOCK NUMBER OF START OF NEXT SEGMENT 10( 
: R1 = DESIRED BYTE COUNT OF NEXT SEGMENT 10( 
; R2 = WINDOW ADDRESS 104 
JOCSQNXTSEG1:: 101 
3E AG) OB? DECW PCBSW_DIOCNT(R4) ; ADJUST THE DIRECT 1/0 COUNT 101 
04 «CE: BBC #irPs? VERTYAL - ; Branch to out of Line code if this 10( 
7 2a A3 IRP$W S7S(R3),5$ a Log cal 1/0. 101 
0 ‘GF 1 JSB G* 1IOCSMAPVBLK ; MAP VIRTUAL TO LOGICAL BLOCK 101 
1¢ AS. SSO MOVL R5,IRP$L_UCB(R3) : STORE POSSIBLY MODIFIED UCB ADDRESS 10 
32 A 32 : 9 SUBL _R2, IRPSL~BCNT(R3) ; CALCULATE SIZE OF NEXT SEGMENT IPI 
4 9 BEQL : IF EQL TOTAL MAP FAILURE IPI 
52. 0084 C5 00 49 10$: MOVL BSL_MAXBCNT(RS),R2  ; R2 = 0 or Max. perm ssible BCNT. IRI 
5 } 4A BNEQ $ ; NEQ implies Max. permissible BENT in RO. IRI 
52 FEOO 8F C QA 2 MOVZWL # levtel R2 : If 0, use default Max. peretes ble. IRI 
A E11 O4A 15$: BC #10$V_ERASE,- : BRANCH IF DEFINITELY NOT AN ERASE IRI 


F 14 
LOC 1OPOST ~ 1/0 COMPLETION POSTING 16-SEP=1984 00:16:58 YAX/VMS Macro v06-00 Page 20 
voe=001 QUEUE NEXT SEGMENT FSEp-198e 9:18:10 Eeysveactiocropostomar:2 "29% 28, 


20 20 A GAA IRPsw _FUNC(R3), 17 ; 
DD O4AD PUSHL : SAVE UCB ADDRESS 
+) p GAF OVL : COPY IRP ADDRESS 
0264 48 BSBW nS,5 ERASE : IS THIS AN ERASE FUNCTION? 
BEDO 048 4 POPL RS : RESTORE uce ADDRESS 
12 E9 048 6 BLBC ~—>—-RO, 1 ; BRANCH IF IT IS NOT AN ERA 
2C AS) «DS. s«04BB 6 TSTL Inés. SVAPTE(R3) : ARE WE USING A DUMMY PAGE TABLE? 
D 13 048 6 BEQL 7$ t BRANCH IF NOT 
50 ££00 F 3C 04C 68 MOVZWL  # Veste?, RO : GET MAX BYTE COUNT FOR PPT 
5 D1 O4¢ 3 CMPL sR ; CHECK LIMIT AGAINST MAX 
9 if 4C 0 BLEQU 1 o : BRANCH IF OK 
52 D aca ft MOVL  RO,R2 : LIMIT TRANSFER TO PPT SIZE 
32. A352.) «D1 sO4CD) «973 17S: = CMPL_—saR2,, IRPSL_BCNT(R3) : See if BCNT too Large. 
04 . 401 974 BGEQU 208 : GeQU implies we are OK. 
32 a3 2 OD rt of? 208 MOVL R2, IRPS$L_BCNT(R3) : Else scale down to maximum allowed. 
52. 32 a3 09 407 37§ MOVL  IRPSL_BCNT(R3),R2 : Ger TRANSFER BYTE COUNT 
5 4DB 978 DECL R2 + ROUND DOWN AND.. 
52 52 =F? BF 8 0400 97 ASHL = #-VASS_BYTE,R2,R2 + SHIFT DOWN FOR BLOCK COUNT - 1 
52. 51 CO O42 980 ADDL R1,R2 7 ; COMPUTE ENDING BLOCK NUMBER 
13 1F O4€5 981 BCS 25 + BRANCH ON OVERFLOW 
0080 (5) «52)—Co=D1s«ME 98¢ CMPL Re UCBSL_MAXBLOCK(RS) : AND CHECK AGAINST DEVICE SIZE 
C it O4EC 98 BGEQU 25$ + BRANCH IF NOT LEGA 
50 51 «OD O4EE 984 MOVL _R1,RO : COPY STARTING LOGICAL BLOCK NUMBER 
00000000'GF 16 O4F1 985 JSB gr focscvtLocPHy : CONVERT LOGICAL TO PHYSICAL BLOCK 
FBO6' 31 O4F7 986 BRw EXESINSIOQ : INSERT 170 PACKET IN DEVICE QUEUE 
CEA Obs 5 sepbcea ce 
4FA 989 : TO HERE | IF THE VIRTUAL BLOCKS MAP OFF THE END OF THE VOLUME. COMPLETE THE 
GFA 990 ; 1/0 WITH AN ERROR. WE QUEUE THE PACKET FOR PROCESSING, RATHER THAN WANDERING 
4A 991 > OFF INTO THE COMPLETION CODE BECAUSE THIS IS A GENERALLY CALLABLE ROUTINE. 
38 A3 o0p¢ BF 3C O4FA $8 558: MOVZWL #SS$_ILLBLKNUM, IRPSL -I0ST1(R3) ; SET ILLEGAL BLOCK NUMBER STATUS 
CA b4 300 LRL _—«IRPSC_IOST2(R35 : ZERO SND 1/0 STATUS LONGWO 
00000000'FF 6 : 50 TNSQUE (R3) ,S1OCSGL_PSBL : INSERT AT TAIL OF 1/0 POST QUEUE 
03 12 O50A NEQ : BRANCH IF NOT EMPTY 
50¢ SOF TINT #IPL$_10POST : WAKE UP I/O COMPLETION 
05 30F 26$:  RSB 
51 1 30$: 
31 .DISABLE LSB 
31 : ALTERNATE ENTRY TO IOCSWAKACP: 
31 : 3 BSBwW 1OCSQTOACP 
+ INPUTS: 
10 1 : Re = DESIRED BYTE COUNT 
10 1010 : R3 = IRP ADDRESS 
: PCBSW_DIOCNT(R4) ALREADY DECREMENTED 
31 1 JOCSQTOACP: 
33 52 D 10 1 MOVL R2. RP$L_BCNT(R3) : SET REMAINING BYTES TO TRANSFER 
18 AS) OD 314 1 MOVL Pst WIRD(R3) ,R2 : GET WINDOW ADDRESS 
0B a2 =O 18 61 BBS hice q WNOTF CP UCSSB_ACCESS CRE)“ ; If SET THEN 


_——— 


1OC1OPOST = 1/0 COMPLETION POSTING 16-SEP-1984 00:16:58 YAX/VMS Macro V04- Page 2 
yos-b0% QUEUE NEXT SEGMENT : iets 7 90:19:38 YOYS SRCIIOCTOPOST MAR: 2 ~. 
4 1¢ 1017 NOTFCPWCB : NOT FCP WINDOW 
52 1c as DO p MOVL  IRPSL_UCB(R3),R2 : GET ADDRESS OF DEVICE UCB 
: FUNCTIONAL DESCRIPTION: 
1% ¢ ; SUBROUTINE TO QUEUE AN I/O PACKET FOR AN ACP PROCESS AND WAKE 
2 3: THE PROCESS IF ITS QUEUE WAS PREVIOUSLY EMPTY. 
° 5 : CALLING SEQUENCE: 
5 j : BSBW = LOC SWAKACP 
: > INPUTS: 
521 1031: Re = DEVICE UCB ADDRESS 
3 5 : R3 = 1/0 REQUEST PACKET ADDRESS 
3 4 + OUTPUTS: 
09 19 : : R4 ALTERED 
05 1 19 : -ENABL LSB 
521 1 IOCSWAKACP: : ; QUEUE 1/0 PACKET AND WAKE ACP PROCESS 
0521 1040 DSBINT #IPL$_SYNCH + SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 
53 34 A200 0527 1041 MOVL UCBSL-VCB(R2) .R2 > GET ASSOCIATED VCB ADDRESS 
52 10 A2s«is«éOS 2B SC 4¢ MOVL  VCBSL-AQB(R2),R : ACP QUEUE BLOCK ADDRESS 
OC A2 05 O52F 104 TSTL  AQBSL-ACPPID(R2) + PROCEDURE BASED? NO PID IF SO 
1 1 532 1044 BEQL xa : EQL THEN IS NOT AN ACP 
FACS" 30 0534 1045 BSBW EXESINSERTIRP : INSERT 1/0 PACKET IN ACP QUEUE 
‘es 05 7 1046 BNEQ ; Q NOT FIRST IN QUEUE 
51 OC Ks p 539 104 MOVL AQBSL_ACPPID(R2),R1 : GET ACP PROCESS ID 
FACO’ 06 D 1048 BSBW SCHSWAKE : WAKE ACP PROCESS 
04 50 £E8 0540 104 BLBS _RO, 108 : IF LBS ACP STILL PRESENT 
543 1050 BUG CHECK NONEXSTACP + NONEXISTENT ACP PROCESS 
547 1051 10$:  ENBINT : RESTORE SAVED IPL 
05 348 3g RSB : 
bec8 1084 + THIS VOLUME IS BEING HANDLED BY AN XQP INSTEAD OF AN ACP. CALL THE 
0548 1055 : XQP QUEUEING ROUTINE AS A SPECIAL KERNEL AST TO GET IN THE CONTEXT 
248 1039 + OF THE PROCESS THAT INITIATED THIS REQUEST TO HANDLE IT. 
$68 1838 so 
55 D 0548 1060  — PUSHL ; PRESERVE RS. 
55 608 4D 1061 MOVAB RPSL FOFL(R3), RS : GET TEMP ACB ADDR INTO R 
0B AS = 80 8F $5 31 1 $¢ vB CBSA_KAST, ACB$B_RMOD(RS) ; NOTE AS SPECIAL KERNEL AST 
0c aS OC AB p 556 1 MOVL  IRPS$L_PID(R$), ACBSL_PID(R5)'; COPY PID OF PROCESS. 
18 AS O0000'CF 9E 0558 1064 MOVAB W*EXESQXQPPKT, ACBSL“KAST(RS) ; ADDR OF QUEUEING ROUTINE. 
52 ps $61 1065 CLRL =o ; NO PRIORITY INCREMENT. 
FASA® 0 563 1 66 BSBW SCHSQAST : QUEUE THE AST. 
55 BED 66 106 POPL R : RESTORE RS. 
yan b 69 8 BRB 108 : BRANCH TO EXIT. 
368 ? .OSABL LSB 
68 1072 : WINDOW IS NOT AN FCP WINDOW, ONLY USED FOR BOOT TIME INTIALIZED WINDOWS 
568 1073 : FOR CONTIGUOUS FILES. IT I1§ NOT POSSIBLE TO NEED TO TURN SUCH A WINDOW. 
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1OC1OPOST = 1/0 COMPLETION POSTING 16-SEP-1984 00:16:58 VAX/VMS Macro V04-00 Page 2 
yO e00! BUFFERED READ COMPLETION AST ROUTINE $7 3FE 213 4 90:19:78 YOYS SRC]IOCLOPOST MAR: 2 wat 
f ? pe .SBTTL BUFFERED READ COMPLETION AST ROUTINE 
f ; FUNCTIONAL DESCRIPTION: 
aa ; : BUFPOST PERFORMS ALL NECESSARY COMPLETION OPERATIONS REQUIRED 
F : FOR A BUFFERED READ OPERATION IN THE CONTEXT OF THE PROCESS 
f 4 ; ISSUING THE 1/0 REQUEST. 
F 1 § > CALLING SEQUENCE: 
6F 1 : 
oF ; JSB BUF POST 
seh ; : INPUT PARAMETERS: 
56F 1 % : R4 = CURRENT PROCESS PCB ADDRESS. 
er : a7 3 RS = IRP/AST CONTROL BLOCK. 
36F 95 ; IMPLICIT INPUTS: 
26 3 : SCHSGL_CURPCB - POINTER TO PCB OF CURRENT PROCESS 
éF 1099 ° 
eer 1100 BUFPOST: ; BUFFERED READ COMPLETION 
OOEO 8F BB 36F 1101 PUSHR #*M<RS.R6,R7> > SAVE REGISTERS 
56 ec AS 00 5 3 11 é MOVL  IRPSL_SVAPTE(RS) ,.R6 ; GET ADDRESS OF 1/0 BUFFER 
5 D0 0577 #11 MOVL  IRPSL~BCNT(RS) R? GET COUNT OF BYTES OR DESCRIPTORS 
4B gh AS 0 E1 0578 1104 BBC #IRPSO_COMPLX, IRPS$W_STS(RS) 40s s1F CLR, NOT COMPLEX BUFFER FORMAT 
59 2A AS EO 580 1105 BBS #IRPSV~ CHAINED, IRPSQ_STS(R55 ,50$ : IF SEf ,CHAINED BUFFERS 
5666 p 585 11 ‘ MOVL  (R6),R : GET ADDRESS OF FIRST BUFFER DESCRIPTOR 
50° O02 A ¢ 588 1107 10$:  #$MOVZWL 2(R65,RO : GET COUNT OF BYTES TO TRANSFER 
32. 13 «058c «(1108 BEQL $ : IF EQL NONE THIS DESCRIPTOR 
51 046 A6 00 58— 1109 MOVL 4(R6),R1 : GET ADDRESS OF USER BUFFER 
50 51 CO 05 ; 1110 ADDL R : CALCULATE ENDING ADDRESS OF BUFFER 
51 OF BF AA 0595 111 BICW #VASM_BYTE,R1 : TRUNCATE ADDRESS TO PAGE BOUNDAR 
50 51 C2 O59A 1118 SUBL 1,R0 : COMPUTE NUMBER OF BYTES TO PROBE 
546 5 59D 111 MOVZWL (R46), R4 : GET OFFSET TO DATA AREA 
53 FEOO BF 3A0 1114 CVTWL #-*1200,R3 + SET ADDITION CONSTANT 
5a5 1115 208: IFNOWRT RO,(R1).35$,(R6)CR4]  : CAN BUFFER BE WRITTEN? 
51 53 c2 O05ac 1116 SUBL R3.R : UPDATE ADDRESS OF BUFFER 
50 6043 3€ OSAF 111 MOVAW (RO)CR3I,RO : UPDATE REMAINING LENGTH 
FO. 14 383 1118 BGTR : IF GEQ MORE TO CHECK 
04 B6 01 A664 02 06 28 0585 111 MOVC (R6),1(R6)CR4],a4(R6) : MOVE DATA TO USER BUFFER 
55 6— DO 058d 1120 MOVL (SP) RS : RESTORE ADDRESS OF I/O PACKET 
6 C C9 1121 30$: ADDL # RG : ADVANCE TO NEXT BUFFER DESCRIPTOR 
25 F c 1 ‘ SOBGTR R | $ ; MORE DESCRIPTORS TO PROCESS? 
7 i] £8 1124 35$: BRB 1 és : CONTINUE 
O17E 3 CB 1125 40$: ##BSBW $MOVBUF : MOVE BUFFER TO USER 
55 6€ OD cE 11 : MOVL  (SP)_RS : RETRIEVE ADDRESS OF 1/0 PACKET 
70 2A a5 OOA 3 11 #irP$v_MBX10, IRPSW_STS(R5),130$; BR IF NOT MAILBOX READ 
50 02 oA 6 1 8 MOVZBL #RSN$ MAILBOX,RO ; SET UP RESOURCE RELEASE 
Fagg" 30 3b 1 ; BsBu SCHSRAVAIL : DECLARE MAILBOX RESOURCE AVAILABLE 
DE 1131 , 
DE 1132; 
spe 11 : : NB: THE FOLLOWING SECTION OF CODE USES A WORD-SIZE BUFFER LENGTH 
DE 1134: (ALTHOUGH IRPS$L_BCNT WAS EXPANDED TO BE A LONGWORD). 
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~ 4-00 Page 24 
- 1/0 COMPLETION POSTING 16-SEP-1 /VAS Macro VO : ‘. 
yoce01 aul reRee READ COMPLETION AST ROUTINE $xgtF ~}382 99: 18; § Heys YS. SRCJIOCIOPOST.MAR;2 ( 
PE HR ; SET LENGTH OF USER BUFFER 
ve Big RE Rite AEE Pete 
° : ‘ f i star avian _BYTE,R1 + TRUNCATE TO PAGE DARY 
jo 4 te RO 11 SUB R + COMPUTE ER OF BYTES TO PROBE 
3 ff . 114 EXTIV r 7 RPSB_RMOD(RS),R2 : GET Re QU ST ACCESS MODE 
matic r Ose ite EVTWL | #eAX or ; SET ADDITION CONSTANT 
sc hint 1143 60S: IFNOWRT R thi) : CAN BUFFER BE WRITTEN? 
208 1144  — SUBL Re + UPDATE ADDRESS OF BUFFER 
50° oor’ af 6 4 1145 ROVAW ta6) 2st, vam ; CALCULAT alttW LENGTH 
‘ee g He + GET STARTING ADDRESS OF USER BUFFER 
au ES UG aos, Ba on evens | BUAHRETAEAREER ES YRS BUTE Maca 
1E 0612 114 BGEQU ; me 
TH(R6) > TRUNCATE LENGTH OF DATA A E 
63 of Moc i ep i 11 ° 80$ Move HERAT as id tt DATA TO USER BUF BU FE 
57 7 13 ne $2 1 5 SyaU Cees ULENGTH=4(R6),R7— REDUCE REMAINING BYTES 1. TRANSFER 
eo bese 1188 et. tee tome : GET ADDRESS OF NEXT BUFFER IN CHAIN 
ths ee 12 $s . 1186 Buea oe ng TOS : IF NEQ MORE T 
4 Se5e ite Bee Hse : SET ACCESS VIOLATION 
nf 30 0620 1158 90$: BSBW  ACCVIO : SET ACCESS VIOLATION | 
6 5 As 00 3 i 1188 1908: HOVE CABS Sata ee ta : GET ADDRESS OF NEXT BUFFER 
OF 1 9 1161 BEQL  140$ ; NON 
50 Se bg bese 1168 MOVE oo ames SET ADDRESS. OF NEXT BUFFER 
if $0 Ose 1183 Bee tee : SET ACCESS VIOLATION STATUS 
50 op ge 00 oe43 1186 1808; Ove TRPBL svapre (as) RO : GET ADDR ESS OF BUFFER TO RELEASE 
' 64A 1167 1408: BSBW  EXES ; 
oveo Be BY been 1168 POPR = #*M< gr R6 NR? - : RESTORE REGISTERS 
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1OC1OPOST - 1/0 COMPLETION POSTING 16=SEP=1984 00:16:58 VAX/VMS Macro V04- P 
v04-001 DIRECT 1/0 COMPLETION AST ROUTINE -SEP=1984 4 99: 18 fi Yeys. SRCJI Sr ob OST MAR; :2 - 23) 
1 oe .SBTTL DIRECT 1/0 COMPLETION AST ROUTINE 
112 : FUNCTIONAL DESCRIPTION: 
1 1124 : DIRPOST PERFORMS ALL GENERAL 1/0 COMPLETION ACTIVITIES WHICH 
651 1175 : TB TH cON XT OF THE PROCESS. THESE INCLUDE 
651 1126 : 49 sPatus POSTING IF AN 10SB WAS SPECIFIED, CHANNEL CONTROL 
: 1 $1177: BLOCK ACTIVITY COUNT DECREMENTING, QUEUEING OF ANY REQUESTED 
6 1178 ; AST OR RELEASE OF THE I/O REQUEST PACKET. 
$3 i p : CALLING SEQUENCE: 
$31 1 : : JSB DIRPOST 
0851 1 4 > INPUT PARAMETERS: 
0651 11 : : = CURRENT PROCESS PCB ADDRESS. 
0631 i pi Rg = IRP/AST CONTROL BLOCK ADDRESS. 
0651 1189 : IMPLICIT INPUTS: 
0651 1191 : SCHSGL_CURPCB = POINTER TO CURRENT PCB 
nh ie 
0e81 1194 DIRPOST: RIAD 1/0 POSTING AST 
50 2A A5 01 00 EF 0651 1195 EXTZV #IRPSV BUFIO.#1, IRPSW_ st5(R ) RO GET INDEX TO, ACCOUNTING ENTRY 
51 00000000" 9F DO 0657 1196 MOVL a@#CTLS$GL_PHD.R1 ; ROCESS HEADER ADDRE 
54 A140 06 065 119 INCL  PHDSL *DIOCNTCRI) CROJ F RE OUNT FOR BUFFERED. OR DIRECT 1/0 
00000002 Oss 1199 .IF NE CA$_MEASUR : CHECK FOR MEASUREMENT ENABLED 
00000000°EF40 06 66 1 00 inci PmsScr ADI RIOCRO? + UPDATE MEASUREMENT 1/0 COUNTER 
i] e 
669 1 
1D 2A AS 07 E1 2 08 BBC wIRPSY_ DIAGBU UF , IRPSW_ STS(R5) 108 ¢ LE CLR, NO DIAGNOSTIC BUFFER 
56 4C AS 00 oe 1205 MOVL = IRPSL > BTAGBUF (RS) , mu 3 eet ADDRESS OF DIAGNOSTIC BUFFER 
57 08 AB 3C 0676 1 06 MOVZWL I RPSUT SIZE(R6),R7- : GET SIZE OF DIAGNOSTIC BUFF 
7 OC cé 67A 120 SUBL -#12,R7 ; REDUCE BY SIZE OF BUFFER HEADER 
gore 67D 1208 BSBW 3s MOV UF : MOVE DIAGNOSTIC INFORMATION TO USER 
O0EO BF BA 0680 1209 POPR #*M<R : RESTORE REGISTERS 
50 AS 684 1210 MOVL  IRPSL “BIASBUF (RS) RO  : RETRIEVE ADDRESS OF DIAGNOSTIC BUFFER 
975° 8 1211 BSBW EXESD EAN AGED t DEALLOCATE DIAGNOSTIC BUFFER 
50 28 AS 688 1 1g 10$: CVTWL TRPS W CHANCR RO : GET CHANNEL NUMBER (N NEGATED) 
51 00000000'FF40 E F 121 MOVAB acti scl CUBGASELROI.R1 : SET CCB BASE ADDRESS 
OA Al : 697 1214 DECW : wid t DECREMENT 1/0 COUNT FOR CHANNEL 
13 69A 1215 BNEQ : NOT IDLE YET 
53 OC Al OD 9° 1 if MOVL CBS DIRP(R1),.R3 : GET ADDRESS OF DEACCESS PACKET 
OD 13 O6A0 121 BEQL : IF EQL NONE 
OC Al D4 06A2 1 18 CLRL CCBSL_DIRP(R1) : CLEAR ADDRESS OF DEACCESS PACKET 
OA Al B86 06A5 121 INCW  CCBSW710C(R1) : ACCOUNT FOR DEACCESS 
$2. 1C a3 p AB Q MOVL § IRP$L7UCB(R3) .R2 : GET ASSIGNED DEVICE UCB ADDRESS 
FE7 AC 1 BSBU ©=-_: [OC SWEKACP : QUEUE 1/0 PACKET AND WAKE ACP 
6AF 1 j : R4 ALTERERED 
a ia 
3 i : R4 DOES NOT NECESSARILY HAVE CURRENT PCB ADDRESS IN IT AT THIS POINT 
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ROVL RPSL_10SB(R5) ,RO 

PRT IV 7 #2 2, IRESB_Re RMOD (RS) ,R1 

IFNOWRT # 

mova #a,RO 163tt th) (RO) 
35$:  MOVL Inst PI 

BBS #IRPSO_EXTEND, IRPSW_STS( 
37$: BBC #ACBSV~QUOTA, [RPSB_RMOD ( 

CLRL = R2 

BRW SCHSQAST 
40$ BBC #IOSV_ERA 

1RPSw “FUNC CAS) 42$ 

BSBB CLEANC 
42$:  MOVL R 

BRW £5 RO paceD 

t DEALLOCATE IRPE'S 
50$:  MOVL IRPSL_EXTEND(RS),RO 
60$:  CLRL R4 

BBC #IRPESV_EXTEND, IRPESW_ sr§) 70$ 

MOVL IRPESL_EXTEND(RO),R4 ~ 
70$:  BSBW  EXESDEANONPAGED 

MOVL  R4,RO 

BNEQ Bos 

BRB 37$ 
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; GET ADDRESS OF FIRST IRPE 


WILL_HOLD ADDRESS OF NXT IRPE 
MORE IRPE'S 
AVE ADD phees 


EXT IRPE 
: BEALLOCATE Tree POINTED TO BY RO 


; PUT Tae OF a IRPE IN RO 
; BR. IF THERE I R 
: DONE DEALLOCATING. IRPE'S 
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- SBTTL ERASE I/0 HELPER ROUTINES 
CLEANUP ERASE 


HE CLEANUP WILL VARY WITH THE TYPE OF ERASE REQUEST. 


T 
SEE THE ROUTINE H HEADER OF THE SUBROUTINE ‘'SETUP_ERASE”’ 
IN SYSACPFDT FOR DETAILS. 
INPUT: RS = IRP ADDRESS 
OUTPUT: NONE. 
CLEANUP_ERASE: : FINISH UP AFTER AN ERASE REQUEST 
19 10 BSBB  CHECK_ERASE t IS THIS AN ERASE 1/0? 
1550 €9 BLBC Ooi + BRANCH IF NOT 
50 2C AS bo MOVL — IRPSL_SVAPTE(RS) .RO : GET ADDRESS OF PPT 
OF 1 BEQL $ : BRANCH IF NON 
50 00000000'GF 01 CMPL  G*EXESGL_ERASEPPT.RO  : IS THIS THE SYSTEM PPT? 
06 13 BEQL 9$ + BRANCH IF YES 
50 0c £2 SUBL2 #12,R0 : CALC ADDRESS OF HEADER 
F8EB" SBW  EXE$DEANONPAGED : RETURN THE POOL TO THE SYSTEM 
05 69$:  RSB + RETURN 


+ 
CHECK_ERASE 


LOCAL SUBROUTINE TO DETERMINE IF THIS IRP_IS FOR AN ERASE 1/0 tt 
THIS LEVEL OF PARANOIA 8 NECESSARY TO PREVENT THE TOTAL CHAOS THA 
WOULD ARISE SHOULD AN IRP THAT ‘LOOKS’ LIKE AN ERASE IRP BE TREATED 
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INCORRECTLY. 
INPUT: R5 = IRP ADDRESS 
OUTPUT: RO = STATUS; LOW BIT SET IMPLIES THIS IS AN ERASE IRP D 
CHECK_ERASE: : CHECK FOR ERASE 1/0 REQUEST 10: 
50 1C AS 00 MOVL § IRP$L_UCB(RS),RO : GET UCB ADDRESS. NOTE: LOW BIT CLEAR 10 
OA €1 BBC #IOSVERASE,- : BRANCH IF ERASE MODIFIER NOT SET 10: 
29 20 AS IRPSW~FUNC (RS), 13$ ; 10: 
00 ED CMPZV #IRPSU_FCODE,- : CHECK FUNCTION CODE 10 
06 #IRPSS~FCODE.- : ONLY DISKS AND TAPES SUPPORT DSE 10: 
15 20 a5 TRPSW_FUNC (RS) .#10$_DSE : 10 
1€ 13 BEQL 1$ : BRANCH IF SO 10 
01 (91 CMPB 4 Ss #DC$_DISK,- : IS THIS A DISK DEVICE? 10 
40 AO UCBSB_DEVCLASS (RO) : 10 
1B 12 NEQ 13$ : NO - THEREFORE NOT AN ERASE 10 
00 ED CMPZV  #IRPSV_FCODE,- : CHECK FUNCTION COD 10 
: #IRPSS~FCODE.- : ONLY DISKS SUPPORT THE MODIFIED- 10 
20 A IRP$W_FUNC(R5) ,- : WRITE TYPE OF ERASE REQUEST 10 
0B #108 ORITEPBLK ; 10 
10 13 BEQL «-*118 10 
00 ED CMPZV #IRPSV_FCODE,- 10 
06 #IRPSS~FCODE.- 10 
20 A IRP$W_FUNC(R5),- 10 
20 #10$_QRITELBLK 10 
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1OCIOPOST - 1/0 COMPLETION POSTING SEP=1984 00:16:58 VAX/VMS © v04-00 P 
nit UNLOCK AREAS IN IRPE'S i eb pi 90: 1% § Heys eR SR cj? CTOPOST .MAR:2 a dd, 
76E 134 .SBTTL UNLOCK AREAS IN IRPE'S 
76E 1342 ;44 
£6 43 > FUNCTIONAL DESCRIPTION: 
76 1345: THIS ROUTINE UNLOCKS THE AREAS DESCRIBED BY FIELDS IN THE IRPE’S. EACH 
re 46 ; IRPE HAS SPACE TO HOLD TWO AREA DESCRIPTIONS. | 
76E 1848 : CALLING SEQUENCE: 
76E 1349 ; 
Pee ! 9; BS Bw! UNLOCK _MORE 
76 j : INPUT PARAMETERS: 
ree s : RS = 1/0 REQUEST PACKET ADDRESS 
76E 1 36 : SIDE EFFECTS: 
76E 1357 : 
76— 1356 : RO = R3 ARE NOT PRESERVED 
76E 1359 ;-- 
76E 1360 
76E 61 ASSUME IRPSL_EXTEND EQ IRPESL_EXTEND 
76 “1363 UNLOCK_MORE: 
55D ree 64 PUSHL RS ; SAVE IRP ADDRESS 
9770 6 10$: |; UNLOCK AREAS SPECIFIED IN NEXT IRPE 
55 5485 00 grr 1368 MOVL  IRPESL_EXTEND(RS),RS_ —;: GET ADDRESS OF NEXT IRPE 
53) 2c ad bg grr 1 69 MOVL JRPESL “SVAPTE1(R5S,.R3: get SVAPTE OF FIRST AREA 
OA 13 0778 1370 BEQL 0$ : IF NOTHING TO UNLOCK 
52. 30 a5 3C O77A 1371 MOVZWL IRPESW_BOFF1(R5),R R? : cet aytee OFFSET IN PAGE 
51 3405 00 O77 1 re MOVL _IRPESL“BCNT1(R5). : GET SIZE OF AREA 
19 10 ores a3 BSBB —Ss«UNLK > UNLOCK FIRST AREA 
53 38 AS 09 784 1375 20$:  MOVL JRPESL_ SVAPTE2(R5),R3 ;_ GET SVAPTE OF SECOND AREA 
1 0788 1376 BEQL : BR. IF NOTHING TO UNLOCK 
52 3C AS) «3C «(078A «(1377 MOVZWL 1RPESW -BOFEZ(RS) ,R2 > GET BYTE OFFSET IN PAGE 
51 4045 00 ree 1 28 MOVL 1aPESL- BCNT2(R5) _R1 > GET SIZE OF AREA 
69 «610 198 29 BSBB t UNLOCK SECOND AREA 
D7 2A AS EO 0794 1381 30$: BBS #RPESV_EXTEND, IMPESW_STS(RS) 10$ ; BR. IF THERE'S ANOTHER IRPE 
5§ BeDO 799 1 : POPL R > RESTORE RS 
05 O79C 1 RSB 
790 1384 
79D 1385 : 
790 6 ; LOCAL SUBROUTINE TO UNLOCK PAGES 
79D 1 8 : Rl = BYTE COUNT (OR SIZE OF AREA) 
790 1 : Re = BYTE OFFSET IN PAGE 
79D 1390 : = SVAPTE OF START OF AREA 
top 1392 
51 QF $142 790 1 38 UNLK: MOVAB 511(R1)C(R2),R ; COMBINE OFFSET AND SIZE AND ROUND 
51 i ras 1394 ASHL  #-VA$S_BYTE.R 1 Rt : CONVERT TO NUMBER OF PAGES TO UNLOCK 
F855" ; 7AB 1395 BSBW  MMGSUNCOCK + UNLOCK PAGES 
7AB 1 36 RSB 
7aC (139 | 
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Symbol table 


ACBSB_RMOD 
ACBSL“KAST 
ACBSL~P1D 


ACBSM_KAST 
ACBSV QUOTA 


ACCV 

AQBSL_ACPPID 

BRW_QAXTSEG 
FTO 


cc 

CHECK ERASE 
CLEANOP_ERASE 
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MMGSUNLOCK eeerrene § xX RSNS_ASTWAIT = 90000001 
MMGSUPDSECAST eeereeee =X BSNS MAILBOX z 2 
MOVBUF 136 q SCH GL PCBVEC aeenenee x 
NOTACP 136 R SCH$GQ_COLPGWQ aennenee 86x 
NOTFCPWCB 568 R SCHSPOSTEF eeeeeere 6X 
PAGIO 194 R SCHSQAST aeeeerer =X 
PAGIO_DONE R SCHSRAVAIL eereenee x 
PAGIO_DONE1 R SCHSRSE aeneeeee 86x 
PAGIO_DONE2 49 R SCHSWAKE aeeeeeee =X 
PAGIO_ERR 5 @ SS$_AC = 90 0c 
PAGIO_ERR_DONE RB SS$_ILLBLKNUM s C 
PAGIO_KAST 80 R SS$_INCSEGTRA = 
PAGIO_OR_SWAPIO CAR MP... 2 
PAGRD _DORE 1DF R UCB$B_DEVCLASS : 4 
PAGRD_ERR ¢A0 @ UCBSL_DEVCHAR 2 3 
PAGWRT_ERR 4 Bf R UCBSL_MAXBCNT = 00084 
PAGWRTERR1 32F R UCBS$L_MAXBLOCK = on0R0 
AGWRT-ERR_DONE ea dt 8 CBSL_ = 00 4 
_J18 = 0000008 UCBSW_QLEN = 000 89 A 
PHD = 000 + ¢ NLK $8 DR 0 
PCBSW_BIOCNT = 0000003A LOCK $ 0096 R 0 
PCBSW-DIOCNT = 0000003E UNLOCK MORE 0 98 6E R 0 
_STAT eeneeeee xX 0 BYTE z 8 O1FF 
PFNSAB_TYPE eeererer KX 0 VA$S_BYTE = $0008 
PFNSAL_BAK aeeeeeee 8X VASV_VPN 2 : 0009 
PFNSAW_REF CNT eeeeenee =X vCBSC_AQB = 00 $ 919 
FNSAW” SUP eeeeeree =X IRTUAL_LOGIO 38 BS R 02 
PFNSC_ACTIVE = WCB$B_ACCESS = 0 $0 00 
PFNSC_BADPAGLST = WCBSV_NOTFCP z 990 399 
PFNSC_PPGTBL = WOHSW_WOCNT = 0000000 
PFNSC_RUERR = xQP 00000548 R 02 
PFNSM_ COLLISION 2 
PFNSM_DELCON = 
~PAGTYP = 
PFNSV_COLLISION s 
V- GBLBAK z 
pewsy MODIFY = - 
PHOSL_BIOCNT = 
PHDSW_ PHVINDEX = 
PMSSERD RO geneenee x 
PMS$GL_BIRIO eeereeee § x 
PMSS$GL_SPLIT eeeeeeee Xx 
PMSSSTART_RQ eeeeeeee Xx 0 
PRS_IPL = 
PRS_SIRR z 
PRIS_10COM PY 
PRI$_NULL = 
PRIS$_TICOM = 
PRIS” TOCOM = 
PRITBL 02 
PTESM_OWN a 
PTESM_PROT = 
PTESS_PFN s 
PTESV_PFN s 
PTESV_VALID = 
ONXTSEG 
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Psect synopsis 
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! Psect synopsis ! 


deme sr os oe eee aeoe} 


PSECT name Allocation PSECT No. Attributes 
ABS . ( -)> 00 ¢ -) NOPIC USR CON ABS LCL NO 

SaBSS 69000000 ( 8} if ( 9.) NOPIC USR CON ABS LCL NO 

SAE XENONPAGED OO7AC ( 1964, 2¢ 2.) NOPIC USR CON REL LCL NOSHR 
grew ew ecn enone wrens meen aaa $ 
i Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 5 6: 0:00.0 8: 0:00.50 

Command processing 131 :00:90. :00:04.31 

3 eee , 0 00:63:89  00:00:14:36 

e sor :00:03. 00:14. 

Pass 2 26 :00:05.25 3: Eee 

Symbol table output 25 :00:00. ' : 8:09.38 

Psect synopsis output :00: 3: 0:00:00.0 

Cross-reference output BPs :00. 3 0:00:00.00 

Assembler run totals 1034 00:34. 0:01:45.26 


The working set Limit was 2100 pages. 

143058 bytes (280 pages) of virtual memory were used to buffer the intermediate code 
There were 140 pages of symbol table space allocated to hold 2514 non-local and 101 
1399 source lines were read in Pass 1, produc ing 20 object records in Pass 2. 

41 pages of virtual memory were used to define 40 macros. 


local symbols. 


+ + 
: Macro Library statistics : 


Macros defined 


Macro Library name 


~$255$DUA28: (51S 08/21 18.MLB;1 28 
$255$DUA28: (SYSLIBJSTARLET.MLB;2 9 
TOTALS (all Libraries) 37 


2665 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: 1OCIOPOST/OBJ=O0BJ$: 1OCIOPOST MSRC$: 1OCIOPOST/UPDATE=(ENHS$: IOCIOPOST) +EXECMLS/LIB 
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SHR NOEXE NORD 
SHR EXE RD 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 
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